home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #1 / Amiga Plus 1999 #1.iso / System-Boost / Sound / SoundFX / archives / sfx-bin_00.lha / Install-SFX < prev    next >
Text File  |  1998-08-04  |  46KB  |  1,111 lines
  1. ; Install-SFX Start -----------------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Install-SFX (08.07.1998)
  4. ;
  5. ; SoundFX Installscript
  6. ; (C) Copyright 1993-1998 Stefan Kost. All Rights Reserved.
  7. ;
  8. ; -----------------------------------------------------------------------------------------------------------
  9.  
  10. ; definiere Prozeduren --------------------------------------------------------------------------------------
  11.  
  12. (PROCEDURE P_PUTTAG #tag #val                            ; write a tagged variable to a config-file
  13. (
  14.     (SET #val (CAT #val))                                ; make it a string
  15.     (IF (= (SUBSTR #val (- (STRLEN #val) 1) 1) "\n")
  16.     (
  17.         (SET #val (SUBSTR #val 0 (- (STRLEN #val) 1)))
  18.     ))
  19.     (RUN (CAT "PutTag ENV:Installer/Programs/sfx.cfg " #tag " \"" #val "\""))
  20. ))
  21.  
  22. (PROCEDURE P_GETTAG #tag                                ; read a tagged variable from a config-file
  23. (
  24.     (RUN "DELETE ENV:gettag_sfx FORCE QUIET")
  25.     (RUN (CAT "GetTag >ENV:gettag_sfx ENV:Installer/Programs/sfx.cfg " #tag))
  26.     (GETENV "gettag_sfx")
  27. ))
  28.  
  29. (PROCEDURE P_NEWDIR #path #dir                            ; tackon a path and create the dir if it not yet exists
  30. (
  31.     (SET #newpath (TACKON #path #dir))
  32.     (IF (= (EXISTS #newpath) 0) (MAKEDIR #newpath))        ; get an error here : "Interpreter : Install statements nested in Line xx"
  33.     (#newpath)                                            ; if anybody know what to do about this (if somebody ready this anyway ...)
  34. ))                                                        ; then please tell me
  35.  
  36. ; setze sprachenabhängige Texte -----------------------------------------------------------------------------
  37.  
  38. (IF (= @LANGUAGE "dansk")
  39. (
  40.     (SET #bad-kick                "SoundFX kræver mindst Kickstart 3.0!")
  41.     (SET #bad-installer            "SoundFX kræver mindst en Installerversion >= 43.0!\nDen kan findes på Aminet under util/misc/Installer43.3.lha.")
  42.     (SET #welcome-messy1        "\n\nVelkommen til installationen af SoundFX!\nDette script vil kopiere alle de filer, der er nødvendige for at bruge SoundFX, til din hardisk.")
  43. ;NEW
  44.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  45. ;NEW
  46.     (SET #choose-dest            "Vælg destinationsmappen! En undermappe med navn SFX vil automatisk blive oprettet.\nDu skal være sikker på, at der er mindst 3.0 MB fri på din harddisk!")
  47.     (SET #choose-dest-help        "Her kan du vælge det sted på din harddisk, hvor du vil have SFX installeret.")
  48.     (SET #copy-loader            "kopierer load-modulerne ...")
  49.     (SET #copy-operators        "kopierer operatør-modulerne ...")
  50.     (SET #copy-player            "kopierer afspilnings-modulerne ...")
  51.     (SET #copy-rexx                "kopierer ARexx-scriptene ...")
  52.     (SET #copy-saver            "kopierer save-modulerne ...")
  53.     (SET #copy-executable        "kopierer executable ...")
  54.     (SET #copy-fonts            "kopierer fonte ...")
  55.     (SET #copy-libs                "kopierer biblioteker ...")
  56.     (SET #copy-envelopes        "kopierer envelopes ...")
  57.     (SET #copy-presets            "kopierer præindstillinger ...")
  58.     (SET #copy-workshop            "kopierer workshop-data ...")
  59.     (SET #copy-gfx                "kopierer grafik ...")
  60.     (SET #copy-text                "kopierer tekst ...")
  61.     (SET #copy-guides            "kopierer guides ...")
  62.     (SET #copy-keyfile            "kopierer keyfile ...")
  63. ; NEW
  64.     (SET #copy-catalogs            "copying catalogs ...")
  65. ; NEW
  66.     (SET #copy-help                "De respektive filer vil blive kopieret til din harddisk.")
  67. ; CHANGE
  68. ;    (SET #choose-icon            "Vælg det ikon du vil installere\n4-farve udgaven er til standard wb-farven, mens 8-farve udgaven er til Magic-WB!")
  69. ;    (SET #choose-icon-help        "Hvis du har mere end fire farver på din WB, skal du vælge 8-farve ikonet.\nDen ser pænere ud.")
  70.     (SET #choose-icon            "Vælg det ikon du vil installere !")
  71.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  72. ; CHANGE
  73.     (SET #choose-icon            "Vælg det ikon du vil installere\n4-farve udgaven er til standard wb-farven, mens 8-farve udgaven er til Magic-WB!")
  74.     (SET #choose-icon-help        "Hvis du har mere end fire farver på din WB, skal du vælge 8-farve ikonet.\nDen ser pænere ud.")
  75.     (SET #choose-keypath        "Vælg en mappe, som din keyfile skal installeres i.")
  76.     (SET #choose-fontpath        "Vælg en mappe, som fontene skal installeres i!")
  77.     (SET #choose-path-help        "Du kan vælge imellem alle disse mapper. SFX vil gennemsøge dem alle!")
  78.     (SET #choose-instmode        "SFX er allerede installeret! Hvordan skal jeg fortsætte?")
  79.     (SET #choose-instmode-help    "I backup-mode bliver den gamle SFX-mappe omdøbt til SFX_old.\nI opdaterings-mode vil allerede installerede filer blive overskrevet.")
  80. ; NEW
  81.     (SET #copykey-fail            "Copying of the keyfile failed !")
  82. ; NEW
  83.     (SET #exit-messy            "\n\nSFX er blevet succesfuldt installeret!\nLæs venligst guiden for at lære, hvordan man bruger programmet.")
  84.     (SET #orderform                "Orderform.dansk.txt")
  85.     (SET #catalog                "dansk")
  86.     (SET #readme                "ReadMe#?")
  87. ))
  88. (IF (= @LANGUAGE "deutsch")
  89. (
  90.     (SET #bad-kick                "SoundFX benötigt mindestens Kickstart 3.0 !")
  91.     (SET #bad-installer            "SoundFX benötigt die Installerversion >= 43.0 !\nDieser ist im Aminet unter util/misc/Installer43.3.lha zu finden.")
  92.     (SET #welcome-messy1         "\n\nWillkommen zur Installation von SoundFX !\nDieses Script wird alle Dateien, die Sie zum Benutzen von SoundFX brauchen, auf Ihre Festplatte kopieren.")
  93.     (SET #welcome-messy2        "Dieses Skript wird sich all ihre Auswahlen dauerhaft merken.\nWenn Sie das Skript im 'Einsteiger' oder 'geübter Benutzer'-Modus starten wieder starten, wird es alle Einstellungen beibehalten und im stillen fortfahren. Sie werden nur gefragt, wenn eine neue Einstellung erforderlich ist.\nWenn Sie einige Einstellungen ändern müssen, so starten Sie das Skript im Expertenmodus. Dadurch werden alle Einstellungen erneut abgefragt, Ihre letzte Auswahl wird bereits voreingestellt.")
  94.     (SET #choose-dest            "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !\nBitte stellen Sie sicher, daß auf der Zielpartition 3.0 MB-Speicher frei ist !")
  95.     (SET #choose-dest-help        "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
  96.     (SET #copy-loader            "kopiere Loader-Module ...")
  97.     (SET #copy-operators        "kopiere Operator-Module ...")
  98.     (SET #copy-player            "kopiere Player-Module ...")
  99.     (SET #copy-rexx                "kopiere ARexx-Scripts ...")
  100.     (SET #copy-saver            "kopiere Saver-Module ...")
  101.     (SET #copy-executable        "kopiere Executable ...")
  102.     (SET #copy-fonts            "kopiere Fonts ...")
  103.     (SET #copy-libs                "kopiere Librarys ...")
  104.     (SET #copy-envelopes        "kopiere Envelopes ...")
  105.     (SET #copy-presets            "kopiere Presets ...")
  106.     (SET #copy-workshop            "kopiere Workshopdateien ...")
  107.     (SET #copy-gfx                "kopiere Gfx ...")
  108.     (SET #copy-text                "kopiere Texte ...")
  109.     (SET #copy-guides            "kopiere Guides ...")
  110.     (SET #copy-keyfile            "kopiere Keyfile ...")
  111.     (SET #copy-catalogs            "kopiere Kataloge ...")
  112.     (SET #copy-help                "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
  113.     (SET #choose-icon            "Bitte wählen Sie den Icontyp aus, das Sie installieren möchten !")
  114.     (SET #choose-icon-help        "Die Standart Variante ist für eine 4-farbige WB.\nDie MagicWB und Iconographics-Varianten benötigen mindestens 8 Farben.\nDie NewIcon Varianten benötigen die NewIcon Software.")
  115.     (SET #choose-keypath        "Bitte suchen Sie ein Zielverzeichnis aus, wo das Keyfile installiert werden soll !")
  116.     (SET #choose-fontpath        "Bitte suchen Sie ein Zielverzeichnis aus, wo die Zeichensätze installiert werden sollen !")
  117.     (SET #choose-path-help        "Sie können irgendeins der angegebenen Verzeichnisse wählen ! SFX wird in allen Verzeichnissen suchen.")
  118.     (SET #choose-instmode        "SFX ist bereits installiert ! Wie soll ich fortfahren ?")
  119.     (SET #choose-instmode-help    "Im Modus Backup wird das alte SFX-Verzeichnis nach SFX_old umbenannt.\nIm Modus Update werde bereits installierte Dateien überschrieben.")
  120.     (SET #copykey-fail            "Das Kopieren des Keyfiles hat nicht geklappt !")
  121.     (SET #exit-messy            "\n\nSFX konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
  122.     (SET #orderform                "Bestellformular.txt")
  123.     (SET #catalog                "deutsch")
  124.     (SET #readme                "LiesMich#?")
  125. ))
  126. (IF (= @LANGUAGE "english")
  127. (
  128.     (SET #bad-kick                "SoundFX requires at least Kickstart 3.0 !")
  129.     (SET #bad-installer            "SoundFX requires installer version >= 43.0 !\nThis could be found on Aminet in util/misc/Installer43.3.lha.")
  130.     (SET #welcome-messy1        "\n\nWelcome to the installation of SoundFX !\nThis script will copy all the files you need to run SoundFX to your harddisk.")
  131.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  132.     (SET #choose-dest            "Please choose a destination directory !\nA drawer called SFX will be automatically generated !\nPlease make sure, that you have at least 3.0 MB free free space on your HD !")
  133.     (SET #choose-dest-help        "Here you can choose the place on your HD, were SFX should be installed")
  134.     (SET #copy-loader            "copying loadermoduls ...")
  135.     (SET #copy-operators        "copying operatormoduls ...")
  136.     (SET #copy-player            "copying playermoduls ...")
  137.     (SET #copy-rexx                "copying arexxscripts ...")
  138.     (SET #copy-saver            "copying savermoduls ...")
  139.     (SET #copy-executable        "copying executable ...")
  140.     (SET #copy-fonts            "copying fonts ...")
  141.     (SET #copy-libs                "copying libraries ...")
  142.     (SET #copy-envelopes        "copying envelopes ...")
  143.     (SET #copy-presets            "copying presets ...")
  144.     (SET #copy-workshop            "copying workshopfiles ...")
  145.     (SET #copy-icons            "copying icons ...")
  146.     (SET #copy-gfx                "copying gfx ...")
  147.     (SET #copy-text                "copying texts ...")
  148.     (SET #copy-guides            "copying guides ...")
  149.     (SET #copy-keyfile            "copying the keyfile ...")
  150.     (SET #copy-catalogs            "copying catalogs ...")
  151.     (SET #copy-help                "The respective files will copied to your HD.")
  152.     (SET #choose-icon            "Please choose the the icon-set you want to install !")
  153.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  154.     (SET #choose-keypath        "Please choose a directory where the keyfile should be installed to !")
  155.     (SET #choose-fontpath        "Please choose a directory where the fonts should be installed to !")
  156.     (SET #choose-path-help        "You can choose any of these places ! SFX will search all loactions.")
  157.     (SET #choose-instmode        "SFX is already installed ! What should i do ?")
  158.     (SET #choose-instmode-help    "In mode backup the old drawer will be renamed to SFX_old.\nIn mode update already installed files will be overwritten.")
  159.     (SET #copykey-fail            "Copying of the keyfile failed !")
  160.     (SET #exit-messy            "\n\nSFX is successfuly installed.\nPlease read the guide, to learn how to work with the program.")
  161.     (SET #orderform                "Orderform.txt")
  162.     (SET #catalog                "english")
  163.     (SET #readme                "ReadMe#?")
  164. ))
  165. (IF (= @LANGUAGE "français")
  166. (
  167.     (SET #bad-kick                "SoundFX demande au moins le Kickstart 3.0 !")
  168.     (SET #bad-installer            "SoundFX demande l'installer version >= 43.0 !\nCe Script peut être trouver sur Aminet dans util/misc/Installer43.3.lha.")
  169.     (SET #welcome-messy1        "\n\nBienvenue dans l'installation de SoundFX !\nCes  scripts vont copier tous les fichiers dont vous avez besoin pour démarrer SoundFX de votre disque dur.")
  170.     (SET #welcome-messy2        "Ce script va enregistrer vos choix dans la durée.\n Si vous redemarré le script en mode "Débutant" ou "Utilisateur averti", vos options seront sauvegardées et mises a jour immédiatement. Vous ne serez interrogés que pour une nouvelle version.\nSi vous voulez modifier des options, démarrez le script en mode "Utilisateur averti". Ceci aura pour effet de tout reconfigurer selon vos choix. Vos anciennes pr'ef'erences resteront selectionnées.")
  171.     (SET #choose-dest            "Choisissez SVP le répertoire de destination !\nUn répertoire appelé SFX va être automatiquement créé !\nVérifier SVP que vous avez au moins 3 Mo d'espace libre dans votre DD !")
  172.     (SET #choose-dest-help        "Ici vous pouvez choisir la place dans votre DD, où SFX doit être installé")
  173.     (SET #copy-loader            "Copie des modules de lecture (loadermoduls) ...")
  174.     (SET #copy-operators        "Copie des modules opérateurs (operatormoduls) ...")
  175.     (SET #copy-player            "Copie des modules d'écoute (playermoduls) ...")
  176.     (SET #copy-rexx                "Copie des scripts AREXX (arexxscripts) ...")
  177.     (SET #copy-saver            "Copie des modules de sauvegarde (savermoduls) ...")
  178.     (SET #copy-executable        "Copie de l'executable ...")
  179.     (SET #copy-fonts            "Copie des fontes ...")
  180.     (SET #copy-libs                "Copie des librairies ...")
  181.     (SET #copy-envelopes        "Copie des envellopes ...")
  182.     (SET #copy-presets            "Copie des "presets" ...")
  183.     (SET #copy-workshop            "Copie des fichiers workshop ...")
  184.     (SET #copy-icons            "Copie des icônes ...")
  185.     (SET #copy-gfx                "Copie des gfx ...")
  186.     (SET #copy-text                "Copie des textes ...")
  187.     (SET #copy-guides            "Copie des guides ...")
  188.     (SET #copy-keyfile            "Copie du Keyfile ...")
  189.     (SET #copy-catalogs            "Copie des catalogues ...")
  190.     (SET #copy-help                "Les fichiers respectifs vont être copiés dans votre DD.")
  191.     (SET #choose-icon            "Choisissez SVP le type d'icône que vous voulez installer !")
  192.     (SET #choose-icon-help        "La version standart est faite pour le WB de 4 couleur.\nLes versions MagicWB et Iconographics demandent au moins 8 coleurs.\nLes versions NewIcon demandent le NewIcon logiciel.")
  193.     (SET #choose-keypath        "Choisissez SVP le répertoire où le keyfile doit être installé !")
  194.     (SET #choose-fontpath        "Choisissez SVP le répertoire où les fontes doivent être installés !")
  195.     (SET #choose-path-help        "Vous pouvez choisir n'importe lequel de ces endroits ! SFX cherchera touts ces endroits.")
  196.     (SET #choose-instmode        "SFX est déjà installé ! Que dois je faire ?")
  197.     (SET #choose-instmode-help    "En mode "backup" le vieux répertoire sera renommé en SFX_old.\nEn mode "update", les fichiers éxistants seront remplacés.")
  198.     (SET #copykey-fail            "La copie du fichier Keyfile a échouée !")
  199.     (SET #exit-messy            "\n\nSFX a été installé avec succés.\nLisez SVP le guide, pour apprendre comment travailler avec le programme.")
  200.     (SET #orderform                "Orderform.français.txt")
  201.     (SET #catalog                "français")
  202.     (SET #readme                "ReadMe#?")
  203. ))
  204. (IF (= @LANGUAGE "italiano")
  205. (
  206.     (SET #bad-kick                "SoundFX richiede il Kickstart 3.0 o superiore !")
  207.     (SET #bad-installer            "SoundFX richiede una versione di Installer 43.0 o superiore !\nTale versione può essere reperita in Aminet in util/misc/Installer43.3.lha.")
  208.     (SET #welcome-messy1        "\n\nBenvenuto nell'installazione di SoundFX !\nQuesto script copierà tutti i file necessari sul tuo hard-disk.")
  209. ;NEW
  210.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  211. ;NEW
  212.     (SET #choose-dest            "Seleziona una directory di destinazione !\nUna directory chiamata SFX sarà automaticamente creata.\nAssicurati di avere almeno 3.0 Mb liberi sul tuo HD !")
  213.     (SET #choose-dest-help        "Con questo requester puoi scegliere dove installare SFX sul tuo HD.")
  214.     (SET #copy-loader            "sto copiando i loadermodules ...")
  215.     (SET #copy-operators        "sto copiando gli operatormodules ...")
  216.     (SET #copy-player            "sto copiando i playermodules ...")
  217.     (SET #copy-rexx                "sto copiando gli script arexx ...")
  218.     (SET #copy-saver            "sto copiando i savermodules ...")
  219.     (SET #copy-executable        "sto copiando l'eseguibile ...")
  220.     (SET #copy-fonts            "sto copiando i fonts ...")
  221.     (SET #copy-libs                "sto copiando le librerie ...")
  222.     (SET #copy-envelopes        "sto copiando le envelopes ...")
  223.     (SET #copy-presets            "sto copiando i presets ...")
  224.     (SET #copy-workshop            "sto copiando i workshopfiles ...")
  225.     (SET #copy-icons            "sto copiando le icone ...")
  226.     (SET #copy-gfx                "sto copiando la grafica ...")
  227.     (SET #copy-text                "sto copiando i testi ...")
  228.     (SET #copy-guides            "sto copiando le guide ...")
  229.     (SET #copy-keyfile            "sto copiando il Keyfile ...")
  230. ; NEW
  231.     (SET #copy-catalogs            "copying catalogs ...")
  232. ; NEW
  233.     (SET #copy-help                "I file selezionati verranno copiati sul tuo HD.")
  234. ; CHANGE
  235. ;    (SET #choose-icon            "Seleziona l'icona che vuoi installare\nL'icona a 4 colori è stata creata per il WB standard, mentre quella a 8 colori segue la palette MagicWB.")
  236. ;    (SET #choose-icon-help        "Se il tuo WB ha più di 4 colori, seleziona l'icona ad 8 colori.\nQuesta icona è più bella.")
  237.     (SET #choose-icon            "Seleziona l'icona che vuoi installare !")
  238.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  239. ; CHANGE
  240.     (SET #choose-keypath        "Please choose a directory where the keyfile should be installed to !")
  241.     (SET #choose-keypath        "Seleziona la directory dove installare il keyfile !")
  242.     (SET #choose-fontpath        "Seleziona la directory dove installare i fonts !")
  243.     (SET #choose-path-help        "Puoi selezionare qualsiasi destinazione: SFX controllerà tutte le directory")
  244.     (SET #choose-instmode        "SFX è già installato ! Cosa devo fare ?")
  245.     (SET #choose-instmode-help    "In modalità backup il vecchio cassetto verrà rinominato SFX_old.\nIn modalità update i file già installati verranno sovrascritti.")
  246. ; NEW
  247.     (SET #copykey-fail            "Copying of the keyfile failed !")
  248. ; NEW
  249.     (SET #exit-messy            "\n\nSFX è stato installato con successo.\nLeggi attentamente la guida per imparare ad utilizzare al meglio il programma.")
  250.     (SET #orderform                "Orderform.italiano.txt")
  251.     (SET #catalog                "italiano")
  252.     (SET #readme                "ReadMe#?")
  253. ))
  254. (IF (= @LANGUAGE "nederlands")
  255. (
  256.     (SET #bad-kick                "SoundFX heeft minstens Kickstart 3.0 nodig!")
  257.     (SET #bad-installer            "SoundFX heeft een installer versie >= 43.0 nodig!\nDeze is op Aminet te vinden in util/misc/Installer43.3.lha.")
  258.     (SET #welcome-messy1        "\n\nWelkom bij de installatie van SoundFX!\nDit script copieert alle bestanden die nodig zijn voor het gebruiken van SoundFX naar uw harddisk.")
  259. ;NEW
  260.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  261. ;NEW
  262.     (SET #choose-dest            "Kies een directory voor SoundFX!\nEen lade met de naam SFX wordt automatisch aangemaakt!\nVoor de installatie is tenminste 3.0 MB vrije ruimte op uw HD nodig!")
  263.     (SET #choose-dest-help        "Hier kunt u de plaats op uw harddisk kiezen waar SoundFX geinstalleerd moet worden.")
  264.     (SET #copy-loader            "loadermodules worden gecopieerd ...")
  265.     (SET #copy-operators        "operatormodules worden gecopieerd ...")
  266.     (SET #copy-player            "playermodules worden gecopieerd ...")
  267.     (SET #copy-rexx                "arexxscripts worden gecopieerd ...")
  268.     (SET #copy-saver            "savermodules worden gecopieerd ...")
  269.     (SET #copy-executable        "executable  worden gecopieerd ...")
  270.     (SET #copy-fonts            "fonts worden gecopieerd ...")
  271.     (SET #copy-libs                "libraries worden gecopieerd ...")
  272.     (SET #copy-envelopes        "envelopes worden gecopieerd ...")
  273.     (SET #copy-presets            "presets worden gecopieerd ...")
  274.     (SET #copy-workshop            "workshopfiles worden gecopieerd ...")
  275.     (SET #copy-icons            "icons worden gecopieerd ...")
  276.     (SET #copy-gfx                "gfx worden gecopieerd ...")
  277.     (SET #copy-text                "texts worden gecopieerd ...")
  278.     (SET #copy-guides            "guides worden gecopieerd ...")
  279.     (SET #copy-keyfile            "Keyfile wordt gecopieerd ...")
  280.     (SET #copy-catalogs            "catalogs worden gecopieerd ...")
  281.     (SET #copy-help                "De benodigde bestanden worden naar uw HD gecopieerd.")
  282.     (SET #choose-icon            "Kies het icon-set dat u wilt installeren!")
  283.     (SET #choose-icon-help        "De standaard versie is voor een 4-kleuren Werkbank.\nDe MagicWB en Iconographics versies hebben tenminste 8 kleuren nodig.\nDe NewIcon versie heeft de newicon software nodig.")
  284.     (SET #choose-keypath        "Kies een directory waar de keyfile geinstalleerd moet worden!")
  285.     (SET #choose-fontpath        "Kies een directory waar de fonts geinstalleerd moeten worden!")
  286.     (SET #choose-path-help        "U kunt elk van deze plekken kiezen ! SFX zal automatisch alle locaties afzoeken.")
  287.     (SET #choose-instmode        "SFX is reeds geinstalleerd! Wat zal ik doen?")
  288.     (SET #choose-instmode-help    "Bij mode backup word de naam van de oude lade veranderd in SFX_old.\nBij mode update worden alle oude bestanden overgeschreven.")
  289.     (SET #copykey-fail            "Het copieren van de keyfile is niet gelukt!")
  290.     (SET #exit-messy            "\n\nSFX is successvol geinstalleerd.\nLees de Guide om met het programma te leren werken.")
  291.     (SET #orderform                "Bestelformulier.txt")
  292.     (SET #catalog                "nederlands")
  293.     (SET #readme                "ReadMe#?")
  294. ))
  295. (IF (= @LANGUAGE "polski")
  296. (
  297.     (SET #bad-kick                "SoundFX wymaga systemu w wesji co najmniej 3.0!")
  298.     (SET #bad-installer            "SoundFX wymaga Installera w wesji co najmniej 43.0!\nNajnowszâ wersjë Installera znajdziesz na Aminecie: \"util/misc/Installer43.3.lha\".")
  299.     (SET #welcome-messy1        "\n\nWitaj w programie instalacyjnym SoundFXa!\nTen program skopiuje wszystkie pliki niezbëdne do uruchomienia SoundFXa na Twój dysk twardy.")
  300. ;NEW
  301.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  302. ;NEW
  303.     (SET #choose-dest            "Gdzie chcesz zainstalowaê SoundFXa?\nKatalog \"SFX\" zostanie automatycznie utworzony!\nUpewnij sië, ûe masz co najmniej 3.0 MB wolnego miejsca na dysku!")
  304.     (SET #choose-dest-help        "wybierz katalog na dysku twardym, w którym SoundFX powinien zostaê zainstalowany")
  305.     (SET #copy-loader            "kopiujë moduîy wczytujâce ...")
  306.     (SET #copy-operators        "kopiujë operatory ...")
  307.     (SET #copy-player            "kopiujë moduîy odtwarzajâce ...")
  308.     (SET #copy-rexx                "kopiujë skrypty ARexx'a ...")
  309.     (SET #copy-saver            "kopiujë moduîy zapisujâce ...")
  310.     (SET #copy-executable        "kopiujë program ...")
  311.     (SET #copy-fonts            "kopiujë czcionki ...")
  312.     (SET #copy-libs                "kopiujë biblioteki ...")
  313.     (SET #copy-envelopes        "kopiujë obwiednie ...")
  314.     (SET #copy-presets            "kopiujë ustawienia ...")
  315.     (SET #copy-workshop            "kopiujë przykîady ...")
  316.     (SET #copy-icons            "kopiujë ikonki ...")
  317.     (SET #copy-gfx                "kopiujë grafikë ...")
  318.     (SET #copy-text                "kopiujë teksty ...")
  319.     (SET #copy-guides            "kopiujë dokumentacjë ...")
  320.     (SET #copy-keyfile            "kopiujë plik-klucz ...")
  321. ; NEW
  322.     (SET #copy-catalogs            "copying catalogs ...")
  323. ; NEW
  324.     (SET #copy-help                "Odpowiednie pliki zostanâ skopiowane na Twój dysk twardy.")
  325. ; CHANGE
  326. ;    (SET #choose-icon            "Wybierz rodzaj ikonek do zainstalowania\n4 kolorowâ dla standardowej palety Workbencha oraz 8 kolorowâ dla palety MagicWB!")
  327. ;    (SET #choose-icon-help        "Jeôli masz wiëcej niû 4 kolory na swoim ekranie WB wybierz wersjë 8 kolorowâ.\nWyglâda znacznie lepiej.")
  328.     (SET #choose-icon            "Wybierz rodzaj ikonek do zainstalowania !")
  329.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  330. ; CHANGE
  331.     (SET #choose-keypath        "Wybierz katalog w którym chcesz zainstalowaê swój plik-klucz")
  332.     (SET #choose-fontpath        "Wybierz katalog w którym chcesz zainstalowaê czcionki")
  333.     (SET #choose-path-help        "Moûesz wybraê dowolny katalog z wymienionych! SFX sprawdzi je wszystkie.")
  334.     (SET #choose-instmode        "SFX jest juû zainstalowany! Co mam zrobiê?")
  335.     (SET #choose-instmode-help    "W trybie \"Backup\" nazwa istniejâcëgo katalogu zostanie zmieniona na \"SFX_old\".\nW trybie aktualizacji, istniejâce pliki zostanâ zastâpione nowymi.")
  336. ; NEW
  337.     (SET #copykey-fail            "Copying of the keyfile failed !")
  338. ; NEW
  339.     (SET #exit-messy            "\n\nSFX zostaî poprawnie zainstalowany.\nProszë, przeczytaj dokumentacjë, aby dowiedzieê sië jak pracowaê z programem.")
  340.     (SET #orderform                "Orderform.polski.txt")
  341.     (SET #catalog                "polski")
  342.     (SET #readme                "ReadMe#?")
  343. ))
  344. (IF (= @LANGUAGE "svenska")
  345. (
  346.     (SET #bad-kick                "SoundFX kräver åtminstone Kickstart 3.0 !")
  347.     (SET #bad-installer            "SoundFX kräver åtminstone version 43.0 av installeraren !\nDenna finns på Aminet i util/misc/Installer43.3.lha.")
  348.     (SET #welcome-messy1        "\n\nVälkommen till installationen av SoundFX !\nDetta skript kommer att kopiera alla filer du behöver för att köra SoundFX till din hårddisk.")
  349. ;NEW
  350.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  351. ;NEW
  352.     (SET #choose-dest            "Välj var SoundFX skall installeras !\nEn låda med namnet SFX kommer automatiskt att skapas !\nSe till att du har minst 3.0 MB ledigt utrymme på hårddisken !")
  353.     (SET #choose-dest-help        "Här kan du välja var på din hårddisk som SoundFX skall installeras.")
  354.     (SET #copy-loader            "kopierar laddningsmoduler ...")
  355.     (SET #copy-operators        "kopierar operatormoduler ...")
  356.     (SET #copy-player            "kopierar ljudmoduler ...")
  357.     (SET #copy-rexx                "kopierar arexxskript ...")
  358.     (SET #copy-saver            "kopierar sparningsmoduler ...")
  359.     (SET #copy-executable        "kopierar körbara filen ...")
  360.     (SET #copy-fonts            "kopierar typsnitt ...")
  361.     (SET #copy-libs                "kopierar bibliotek (libraries)...")
  362.     (SET #copy-envelopes        "kopierar enveloper ...")
  363.     (SET #copy-presets            "kopierar förinställningar (presets) ...")
  364.     (SET #copy-workshop            "kopierar workshopfiler ...")
  365.     (SET #copy-icons            "kopierar ikoner ...")
  366.     (SET #copy-gfx                "kopierar grafik ...")
  367.     (SET #copy-text                "kopierar texter ...")
  368.     (SET #copy-guides            "kopierar guider ...")
  369.     (SET #copy-keyfile            "kopierar nyckelfil (Keyfile) ...")
  370. ; NEW
  371.     (SET #copy-catalogs            "copying catalogs ...")
  372. ; NEW
  373.     (SET #copy-help                "Respektive filer kommer att kopieras till din hårddisk.")
  374. ; CHANGE
  375. ;    (SET #choose-icon            "Var vänlig välj vilken ikon du vill installera\nfyrfärgsikonen är gjord för standard Workbenchfärger och åttafärgsversionen är gjord för Magic-WB !")
  376. ;    (SET #choose-icon-help        "Om du inte har installerat Magic-WB tidigare, välj fyrfärgsikonen.\nOm du har installerat Magic-WB, välj åttafärgersikonen, den ser bättre ut.")
  377.     (SET #choose-icon            "Var vänlig välj vilken ikon du vill installera !")
  378.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  379. ; CHANGE
  380.     (SET #choose-keypath        "Var vänlig välj var nyckelfilen skall sparas !")
  381.     (SET #choose-fontpath        "Var vänlig välj var typsnitten (fonts) skall installeras !")
  382.     (SET #choose-path-help        "Du kan välja vilken som helst av dessa ställen ! SoundFX kommer att söka på alla.")
  383.     (SET #choose-instmode        "SoundFX är redan installerat ! Vad vill du göra ?")
  384.     (SET #choose-instmode-help    "I backup-mod kommer den gamla lådan att döpas om till SFX_old.\nI update-mod kommer de redan installerade filerna skrivas över.")
  385. ; NEW
  386.     (SET #copykey-fail            "Copying of the keyfile failed !")
  387. ; NEW
  388.     (SET #exit-messy            "\n\nSoundFX har installerats klart.\nVar god läs dokumentationen för att lära dig hur man arbetar med programmet.")
  389.     (SET #orderform                "Orderform.svenska.txt")
  390.     (SET #catalog                "svenska")
  391.     (SET #readme                "ReadMe#?")
  392. ))
  393.  
  394. ; check kick version ----------------------------------------------------------------------------------------
  395.  
  396. (SET #vernum (GETVERSION))
  397. (SET #ver (/ #vernum 65536))
  398. (IF (< #ver 39)
  399.     (ABORT #bad-kick)
  400. )
  401.  
  402. ; check installer version -----------------------------------------------------------------------------------
  403.  
  404. (SET #vernum @INSTALLER-VERSION)
  405. (SET #ver (/ #vernum 65536))
  406. (IF (< #ver 43)
  407.     (ABORT #bad-installer)
  408. )
  409.  
  410. ; los geht`s ------------------------------------------------------------------------------------------------
  411.  
  412. (COMPLETE 0)
  413. (MESSAGE #welcome-messy1)
  414. (MESSAGE #welcome-messy2)
  415.  
  416. ; mal sehn was für Drives da sind ---------------------------------------------------------------------------
  417.  
  418. (IF (= (EXISTS "music:" (NOREQ)) 2) (SET @DEFAULT-DEST "music:"))
  419. (IF (= (EXISTS "sound:" (NOREQ)) 2)    (SET @DEFAULT-DEST "sound:"))
  420. (IF (= (EXISTS "audio:" (NOREQ)) 2) (SET @DEFAULT-DEST "audio:"))
  421.  
  422. ; vielleicht hat er es ja auch schon mal installiert --------------------------------------------------------
  423.  
  424. (RUN "MAKEDIR ENV:Installer")                                ; we need those directorys anyway
  425. (RUN "MAKEDIR ENV:Installer/Programs")
  426. (RUN "MAKEDIR ENVARC:Installer")
  427. (RUN "MAKEDIR ENVARC:Installer/Programs")
  428.  
  429. (SET #lastdest (GETENV "SFXPATH"))                            ; cleanup very old envvar
  430. (IF (> (STRLEN #lastdest) 0)
  431. (
  432.     (RUN "COPY ENV:SFXPath ENV:Installer/Programs/SFXPath")
  433.     (RUN "COPY ENV:Installer/Programs/SFXPath ENVARC:Installer/Programs/SFXPath")
  434.     (RUN "DELETE ENV:SFXPath ENVARC:SFXPath FORCE QUIET")
  435. ))
  436. (SET #lastdest (GETENV "Installer/Programs/SFXPath"))        ; cleanup old envvar
  437. (IF (> (STRLEN #lastdest) 0)
  438. (
  439.     (P_PUTTAG "path" #lastdest)
  440.     (RUN "COPY ENV:Installer/Programs/sfx.cfg ENVARC:Installer/Programs/sfx.cfg")
  441.     (RUN "DELETE ENV:Installer/Programs/SFXPath ENVARC:Installer/Programs/SFXPath FORCE QUIET")
  442. ))
  443.  
  444. (SET #lastdest (P_GETTAG "path"))
  445. (IF (= (STRLEN #lastdest) 0)                                        ; check if env-var exists
  446. (
  447.     (SET #lastdest                                            ; no, use default
  448.         (ASKDIR
  449.             (PROMPT #choose-dest)
  450.             (HELP #choose-dest-help)
  451.             (DEFAULT @DEFAULT-DEST)
  452.         )
  453.     )
  454. )
  455. (
  456.     (SET #lastdest                                            ; yes
  457.         (ASKDIR
  458.             (PROMPT #choose-dest)
  459.             (HELP #choose-dest-help)
  460.             (DEFAULT #lastdest)
  461.         )
  462.     )
  463. ))
  464. (P_PUTTAG "path" #lastdest)
  465.  
  466. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  467.  
  468. (COMPLETE 2)
  469. (SET #drawer-dest #lastdest)
  470. (SET @DEFAULT-DEST (TACKON #lastdest "SFX"))
  471. (SET #sfx-dest @DEFAULT-DEST)
  472. (IF (= (EXISTS #sfx-dest) 0)                                    ; check if drawer exists
  473.     (MAKEDIR #sfx-dest (INFOS))                                    ; no, create one
  474.     (                                                            ; yes, check whats there
  475.         (IF (= (EXISTS (TACKON #sfx-dest "_loaders" )) 2)        ; is sfx-bin already installed
  476.             (SET #bin-ex 1)
  477.             (SET #bin-ex 0)
  478.         )
  479.         (IF (= (EXISTS (TACKON #sfx-dest "Guides")) 2)            ; is sfx-doc already installed
  480.             (SET #doc-ex 1)
  481.             (SET #doc-ex 0)
  482.         )
  483.         (IF (= (EXISTS (TACKON #sfx-dest "Workshop")) 2)            ; is sfx-data already installed
  484.             (SET #data-ex 1)
  485.             (SET #data-ex 0)
  486.         )
  487.         (SET #key-ex 0)
  488.         (IF (= (EXISTS "devs:keyfiles/sfx.key") 1)                    ; si there already a key installed
  489.             (SET #key-ex 1)
  490.         )
  491.         (IF (= (EXISTS (CAT #sfx-dest "/sfx.key")) 1)
  492.             (SET #key-ex 2)
  493.         )
  494.         (IF (= (EXISTS (CAT #sfx-dest "/Keyfiles/sfx.key")) 1)
  495.             (SET #key-ex 3)
  496.         )
  497.         (IF (= (+ (+ #bin-ex #doc-ex) #data-ex) 3)                    ; all three already installed
  498.         (
  499.             (SET #instmode (P_GETTAG "instmode"))                    ; get last-time choice
  500.             (IF (OR (= @user-level 2) (AND (= @user-level 1) ((= (STRLEN #instmode) 0))))    ; requerry ?
  501.             (
  502.                 (IF ((= (STRLEN #instmode) 0)) (SET #instmode 0))
  503.                 (SET #instmode                                            ; yes, backup or update ?
  504.                     (ASKCHOICE
  505.                         (PROMPT #choose-#instmode)
  506.                         (HELP #choose-#instmode-help)
  507.                         (CHOICES
  508.                             "Backup old installation"
  509.                             "Update old installation"
  510.                         )
  511.                         (DEFAULT #instmode)
  512.                     )
  513.                 )
  514.                 (P_PUTTAG "instmode" #instmode)
  515.             ))
  516.             (IF (= #instmode 0)                                        ; backup
  517.             (
  518.                 (SET #sfxsub-dest (CAT #sfx-dest "_old"))
  519.                 (IF (= (EXISTS #sfxsub-dest) 2)                            ; delete old backup
  520.                     (RUN (CAT "DELETE " #sfxsub-dest " ALL QUIET FORCE"))
  521.                 )
  522.                 (RENAME #sfx-dest #sfxsub-dest)
  523.                 (RENAME (CAT #sfx-dest ".info") (CAT #sfxsub-dest ".info"))
  524. ;                (COPYFILES
  525. ;                    (SOURCE #sfx-dest)
  526. ;                    (DEST #sfxsub-dest)
  527. ;                    (ALL)
  528. ;                    (INFOS)
  529. ;                )
  530. ;                (RUN (CAT "DELETE " #sfx-dest "/#?.db QUIET FORCE"))        ; delete old database files
  531.             ))
  532.         ))
  533.     )
  534. )
  535.  
  536. ; now querry all choices ------------------------------------------------------------------------------------
  537.  
  538. ;(IF (= (EXISTS "sfx-bin") 2)
  539. ;(
  540. ;))
  541.  
  542. (IF (= (EXISTS "sfx-data") 2)
  543. (
  544.     (SET #fontpath (P_GETTAG "fontpath"))                    ; get last-time choice
  545.     (IF (OR (= @user-level 2) (AND (= @user-level 1) ((= (STRLEN #fontpath) 0))))    ; requerry ?
  546.     (
  547.         (IF ((= (STRLEN #fontpath) 0)) (SET #fontpath 1))
  548.         (SET #fontpath
  549.             (ASKCHOICE
  550.                 (PROMPT #choose-#fontpath)
  551.                 (HELP #choose-path-help)
  552.                 (CHOICES
  553.                     "FONTS:"
  554.                     "Progdir:fonts/"
  555.                 )
  556.                 (DEFAULT #fontpath)
  557.             )
  558.         )
  559.         (P_PUTTAG "fontpath" #fontpath)
  560.     ))
  561.  
  562.     (SET #iconset (P_GETTAG "iconset"))                    ; get last-time choice
  563.     (IF (OR (= @user-level 2) (AND (= @user-level 1) ((= (STRLEN #iconset) 0))))    ; requerry ?
  564.     (
  565.         (IF ((= (STRLEN #iconset) 0)) (SET #iconset 1))
  566.         (SET #iconset
  567.             (ASKCHOICE
  568.                 (PROMPT #choose-icon)
  569.                 (HELP #choose-icon-help)
  570.                 (CHOICES
  571.                     "Standart"
  572.                     "Magic WB"
  573.                     "NewIcons"
  574.                     "AristIcons (NewIcons)"
  575.                     "Iconographics"
  576.                 )
  577.                 (DEFAULT #iconset)
  578.             )
  579.         )
  580.         (P_PUTTAG "iconset" #iconset)
  581.     ))
  582.  
  583.     (IF (= (EXISTS "SoundFX:" (NOREQ)) 2)
  584.     (
  585.         (SET #keypath (P_GETTAG "keypath"))                    ; get last-time choice
  586.         (IF (OR (= @user-level 2) (AND (= @user-level 1) ((= (STRLEN #keypath) 0))))        ; requerry ?
  587.         (
  588.             (IF ((= (STRLEN #keypath) 0)) (SET #keypath 0))
  589.             (SET #keypath
  590.                 (ASKCHOICE
  591.                     (PROMPT #choose-#keypath)
  592.                     (HELP #choose-path-help)
  593.                     (CHOICES
  594.                         "DEVS:keyfiles/"
  595.                         "Progdir:keyfiles/"
  596.                         "Progdir:"
  597.                     )
  598.                     (DEFAULT #keypath)
  599.                 )
  600.             )
  601.             (P_PUTTAG "keypath" #keypath)
  602.         ))
  603.     ))
  604. ))
  605.  
  606. ;(IF (= (EXISTS "sfx-doc") 2)
  607. ;(
  608. ;))
  609.  
  610. (RUN "COPY ENV:Installer/Programs/sfx.cfg ENVARC:Installer/Programs/sfx.cfg")        ; make cfg persistent
  611.  
  612. ; SFX-bin begin ---------------------------------------------------------------------------------------------
  613.  
  614. (IF (= (EXISTS "sfx-bin") 2)
  615. (
  616.  
  617. ; Loader ----------------------------------------------------------------------------------------------------
  618. (COMPLETE 5)
  619. (SET #sfxsub-dest (TACKON #sfx-dest "_loaders"))
  620. (IF (= (EXISTS #sfxsub-dest) 0)
  621.     (MAKEDIR #sfxsub-dest)
  622.     (RUN (CAT "DELETE " #sfxsub-dest "/#?.(sfxmod|guide|modinfo) ALL QUIET FORCE"))
  623. )
  624. (COPYFILES
  625.     (PROMPT #copy-loader)
  626.     (HELP #copy-help)
  627.     (SOURCE "sfx-bin/_loaders/")
  628.     (DEST #sfxsub-dest)
  629.     (ALL)
  630. )
  631.  
  632. ; Operators -------------------------------------------------------------------------------------------------
  633. (COMPLETE 8)
  634. (SET #sfxsub-dest (TACKON #sfx-dest "_operators"))
  635. (IF (= (EXISTS #sfxsub-dest) 0)
  636.     (MAKEDIR #sfxsub-dest)
  637.     (RUN (CAT "DELETE " #sfxsub-dest "/#?.(sfxmod|guide|modinfo) ALL QUIET FORCE"))
  638. )
  639. (COPYFILES
  640.     (PROMPT #copy-operators)
  641.     (HELP #copy-help)
  642.     (SOURCE "sfx-bin/_operators/")
  643.     (DEST #sfxsub-dest)
  644.     (ALL)
  645. )
  646.  
  647. ; Player ----------------------------------------------------------------------------------------------------
  648. (COMPLETE 15)
  649. (SET #sfxsub-dest (TACKON #sfx-dest "_players"))
  650. (IF (= (EXISTS #sfxsub-dest) 0)
  651.     (MAKEDIR #sfxsub-dest)
  652.     (RUN (CAT "DELETE " #sfxsub-dest "/#?.(sfxmod|guide|modinfo) ALL QUIET FORCE"))
  653. )
  654. (COPYFILES
  655.     (PROMPT #copy-player)
  656.     (HELP #copy-help)
  657.     (SOURCE "sfx-bin/_players/")
  658.     (DEST #sfxsub-dest)
  659.     (ALL)
  660. )
  661.  
  662. ; Saver -----------------------------------------------------------------------------------------------------
  663. (COMPLETE 17)
  664. (SET #sfxsub-dest (TACKON #sfx-dest "_savers"))
  665. (IF (= (EXISTS #sfxsub-dest) 0)
  666.     (MAKEDIR #sfxsub-dest)
  667.     (RUN (CAT "DELETE " #sfxsub-dest "/#?.(sfxmod|guide|modinfo) ALL QUIET FORCE"))
  668. )
  669. (COPYFILES
  670.     (PROMPT #copy-saver)
  671.     (HELP #copy-help)
  672.     (SOURCE "sfx-bin/_savers/")
  673.     (DEST #sfxsub-dest)
  674.     (ALL)
  675. )
  676.  
  677. ; SFX -------------------------------------------------------------------------------------------------------
  678. (COMPLETE 19)
  679. (COPYFILES
  680.     (PROMPT #copy-executable)
  681.     (HELP #copy-help)
  682.     (SOURCE "sfx-bin/sfx")
  683.     (DEST #sfx-dest)
  684.     (NEWNAME "SoundFX")
  685. )
  686. (COMPLETE 23)
  687. (SET #sfxsub-dest (TACKON #sfx-dest "libs"))
  688. (IF (= (EXISTS #sfxsub-dest) 0)
  689.     (MAKEDIR #sfxsub-dest)
  690. )
  691. (COPYFILES
  692.     (PROMPT #copy-executable)
  693.     (HELP #copy-help)
  694.     (SOURCE "sfx-bin/sfxsupport.library")
  695.     (DEST #sfxsub-dest)
  696. )
  697.  
  698. ))
  699.  
  700. ; SFX-bin ende ----------------------------------------------------------------------------------------------
  701.  
  702. ; SFX-data begin --------------------------------------------------------------------------------------------
  703.  
  704. (IF (= (EXISTS "sfx-data") 2)
  705. (
  706.  
  707. ; Fonts kopieren --------------------------------------------------------------------------------------------
  708. (COMPLETE 25)
  709. (IF (= #fontpath 0)
  710. (
  711.     (SET #sfxsub-dest "FONTS:")
  712. ))
  713. (IF (= #fontpath 1)
  714. (
  715.     (SET #sfxsub-dest (TACKON #sfx-dest "fonts"))
  716.     (IF (= (EXISTS #sfxsub-dest) 0)
  717.         (MAKEDIR #sfxsub-dest)
  718.     )
  719. ))
  720. (COPYFILES
  721.     (PROMPT #copy-fonts)
  722.     (HELP #copy-help)
  723.     (SOURCE "sfx-data/fonts/")
  724.     (DEST #sfxsub-dest)
  725.     (ALL)
  726. )
  727.  
  728. ; Libs kopieren ---------------------------------------------------------------------------------------------
  729. (COMPLETE 26)
  730. (COPYLIB
  731.     (PROMPT #copy-libs)
  732.     (HELP #copy-help)
  733.     (SOURCE "sfx-data/Libs/amigaguide.library")
  734.     (DEST "LIBS:")
  735. )
  736. (COPYLIB
  737.     (PROMPT #copy-libs)
  738.     (HELP #copy-help)
  739.     (SOURCE "sfx-data/Libs/unitconv.library")
  740.     (DEST "LIBS:")
  741. )
  742.  
  743. ; Envelopes -------------------------------------------------------------------------------------------------
  744. (COMPLETE 29)
  745. (SET #sfxsub-dest (TACKON #sfx-dest "Envelopes"))
  746. (IF (= (EXISTS #sfxsub-dest) 0)
  747.     (MAKEDIR #sfxsub-dest)
  748. )
  749. (COPYFILES
  750.     (PROMPT #copy-envelopes)
  751.     (HELP #copy-help)
  752.     (SOURCE "sfx-data/Envelopes/")
  753.     (DEST #sfxsub-dest)
  754.     (ALL)
  755. )
  756.  
  757. ; Module Data (.modinfo, .presets ) -------------------------------------------------------------------------
  758. (COMPLETE 31)
  759. (COPYFILES
  760.     (PROMPT #copy-presets)
  761.     (HELP #copy-help)
  762.     (SOURCE "sfx-data/")
  763.     (PATTERN "_#?")
  764.     (DEST #sfx-dest)
  765. )
  766.  
  767. ; Workshop-Scripte ------------------------------------------------------------------------------------------
  768. (COMPLETE 38)
  769. (SET #sfxsub-dest (TACKON #sfx-dest "Workshop"))
  770. (IF (= (EXISTS #sfxsub-dest) 0)
  771.     (MAKEDIR #sfxsub-dest)
  772. )
  773. (COPYFILES
  774.     (PROMPT #copy-workshop)
  775.     (HELP #copy-help)
  776.     (SOURCE "sfx-data/Workshop/")
  777.     (DEST #sfxsub-dest)
  778.     (ALL)
  779. )
  780.  
  781. ; Delete Old Files ------------------------------------------------------------------------------------------
  782.  
  783. (COMPLETE 40)
  784. (SET #sfxsub-dest (TACKON #sfx-dest "Synths"))
  785. (IF (= (EXISTS #sfxsub-dest) 1)
  786.     (RUN (CAT "DELETE " #sfxsub-dest " ALL QUIET FORCE"))
  787. )
  788. (COMPLETE 41)
  789. (SET #sfxsub-dest (TACKON #sfx-dest "EqShps"))
  790. (IF (= (EXISTS #sfxsub-dest) 1)
  791.     (RUN (CAT "DELETE " #sfxsub-dest " ALL QUIET FORCE"))
  792. )
  793.  
  794. ; Icon ------------------------------------------------------------------------------------------------------
  795. (COMPLETE 42)
  796. (SET #sfxsub-dest (TACKON #sfx-dest "Guides"))
  797. (IF (= #iconset 0)
  798.     (SET #icon-dest "sfx-data/icons_std")
  799. )
  800. (IF (= #iconset 1)
  801.     (SET #icon-dest "sfx-data/icons_mwb")
  802. )
  803. (IF (= #iconset 2)
  804.     (SET #icon-dest "sfx-data/icons_ni")
  805. )
  806. (IF (= #iconset 3)
  807.     (SET #icon-dest "sfx-data/icons_arist")
  808. )
  809. (IF (= #iconset 4)
  810.     (SET #icon-dest "sfx-data/icons_icgfx")
  811. )
  812.  
  813. (COPYFILES
  814.     (PROMPT #copy-icons)
  815.     (HELP #copy-help)
  816.     (SOURCE (TACKON #icon-dest "SoundFX.info"))
  817.     (DEST #sfx-dest)
  818. )
  819. (COPYFILES
  820.     (PROMPT #copy-icons)
  821.     (HELP #copy-help)
  822.     (SOURCE (TACKON #icon-dest "Guides.info"))
  823.     (DEST #sfx-dest)
  824. )
  825. (COPYFILES
  826.     (PROMPT #copy-icons)
  827.     (HELP #copy-help)
  828.     (SOURCE (TACKON #icon-dest "SFX.guide.info"))
  829.     (DEST #sfxsub-dest)
  830. )
  831. (COPYFILES
  832.     (PROMPT #copy-icons)
  833.     (HELP #copy-help)
  834.     (SOURCE (TACKON #icon-dest "Form.info"))
  835.     (DEST #sfx-dest)
  836.     (NEWNAME (CAT #orderform ".info"))
  837. )
  838. (COPYFILES
  839.     (PROMPT #copy-icons)
  840.     (HELP #copy-help)
  841.     (SOURCE (TACKON #icon-dest "SoundDir.info"))
  842.     (DEST #drawer-dest)
  843.     (NEWNAME "sfx.info")
  844. )
  845.  
  846. ; GFX -------------------------------------------------------------------------------------------------------
  847. (COMPLETE 47)
  848. (SET #sfxsub-dest (TACKON #sfx-dest "Data"))
  849. (IF (= (EXISTS #sfxsub-dest) 0)
  850.     (MAKEDIR #sfxsub-dest)
  851. )
  852. (COPYFILES
  853.     (PROMPT #copy-gfx)
  854.     (HELP #copy-help)
  855.     (SOURCE "sfx-data/Data/")
  856.     (DEST #sfxsub-dest)
  857.     (ALL)
  858. )
  859.  
  860. ; Keyfile kopieren ------------------------------------------------------------------------------------------
  861.  
  862. (COMPLETE 51)
  863. (IF (= #keypath 0)
  864. (
  865.     (SET #sfxsub-dest "DEVS:keyfiles")
  866.     (IF (= (EXISTS #sfxsub-dest) 0) (MAKEDIR #sfxsub-dest (INFOS)) )
  867. ))
  868. (IF (= #keypath 1)
  869. (
  870.     (SET #sfxsub-dest (TACKON #sfx-dest "keyfiles"))
  871.     (IF (= (EXISTS #sfxsub-dest) 0) (MAKEDIR #sfxsub-dest) )
  872. ))
  873. (IF (= #keypath 2)
  874. (
  875.     (SET #sfxsub-dest #sfx-dest)
  876. ))
  877. (COMPLETE 53)
  878.  
  879. (IF (OR (= #key-ex 0)((= (EXISTS "SoundFX:SFX.newkey" (NOREQ)) 1)))                                    ; nein -> checken, ob Disk im Laufwerk ist
  880. (
  881.     (IF (= (EXISTS "SoundFX:" (NOREQ)) 2)
  882.     (
  883.         (IF (= (EXISTS "SoundFX:SFX.newkey") 1)
  884.             (SET #keyname "SoundFX:sfx.newkey")
  885.             (SET #keyname "SoundFX:sfx.key")
  886.         )
  887.         (SET #copykey 1)
  888.         (COPYFILES                            ; versuche Key von der Disk zu kopieren
  889.             (PROMPT #copy-keyfile)
  890.             (HELP #copy-help)
  891.             (SOURCE #keyname)
  892.             (DEST #sfxsub-dest)
  893.             (NEWNAME "sfx.key")
  894.             (OPTIONAL "nofail")
  895.         )
  896.         (TRAP 4 (IF (<> @IOERR 0)(SET #copykey 0)))        ; testen ob's geklappt hat
  897.  
  898.         (IF (= #copykey 0)
  899.         (
  900.           (SET #copykey 1)
  901.           (COPYFILES                        ; mit 1. Kopie nochmal versuchen
  902.             (PROMPT #copy-keyfile)
  903.             (HELP #copy-help)
  904.             (SOURCE (CAT #keyname "_1"))
  905.             (DEST #sfxsub-dest)
  906.             (NEWNAME "sfx.key")
  907.             (OPTIONAL "nofail")
  908.           )
  909.           (TRAP 4 (IF (<> @IOERR 0)(SET #copykey 0)))    ; testen ob's geklappt hat
  910.         ))
  911.         (IF (= #copykey 0)
  912.         (
  913.           (SET #copykey 1)
  914.           (COPYFILES                        ; mit 2. Kopie nochmal versuchen
  915.             (PROMPT #copy-keyfile)
  916.             (HELP #copy-help)
  917.             (SOURCE (CAT #keyname "_2"))
  918.             (DEST #sfxsub-dest)
  919.             (NEWNAME "sfx.key")
  920.             (OPTIONAL "nofail")
  921.           )
  922.           (TRAP 4 (IF (<> @IOERR 0)(SET #copykey 0)))    ; testen ob's geklappt hat
  923.         ))
  924.         (IF (= #copykey 0)
  925.         (
  926.           (SET #copykey 1)
  927.           (COPYFILES                        ; mit 3. Kopie nochmal versuchen
  928.             (PROMPT #copy-keyfile)
  929.             (HELP #copy-help)
  930.             (SOURCE (CAT #keyname "_3"))
  931.             (DEST #sfxsub-dest)
  932.             (NEWNAME "sfx.key")
  933.             (OPTIONAL "nofail")
  934.           )
  935.           (TRAP 4 (IF (<> @IOERR 0)(SET #copykey 0)))    ; testen ob's geklappt hat
  936.         ))
  937.         (IF (= #copykey 0)
  938.             (MESSAGE #copykey-fail)
  939.         )
  940.     ))
  941. ))
  942. (IF (= #instmode 0)                            ; we're in backup mode
  943. (
  944.     (IF (= #key-ex 2)                            ; copy key from backup
  945.     (
  946.         (COPYFILES
  947.             (PROMPT #copy-keyfile)
  948.             (HELP #copy-help)
  949.             (SOURCE (CAT #sfx-dest "_old/sfx.key"))
  950.             (DEST #sfxsub-dest)
  951.         )
  952.     ))
  953.     (IF (= #key-ex 3)                            ; copy key from backup
  954.     (
  955.         (COPYFILES
  956.             (PROMPT #copy-keyfile)
  957.             (HELP #copy-help)
  958.             (SOURCE (CAT #sfx-dest "_old/Keyfiles/sfx.key"))
  959.             (DEST #sfxsub-dest)
  960.         )
  961.     ))
  962. ))
  963.  
  964. ))
  965.  
  966. ; SFX-data ende ---------------------------------------------------------------------------------------------
  967.  
  968. ; SFX-doc begin ---------------------------------------------------------------------------------------------
  969.  
  970. (IF (= (EXISTS "sfx-doc") 2)
  971. (
  972.  
  973. ; Guide -----------------------------------------------------------------------------------------------------
  974.  
  975. (COMPLETE 55)
  976. (COPYFILES
  977.     (PROMPT #copy-text)
  978.     (HELP #copy-help)
  979.     (SOURCE "sfx-doc/")
  980.     (FILES)
  981.     (PATTERN #readme)
  982.     (DEST #sfx-dest)
  983. )
  984. (COPYFILES
  985.     (PROMPT #copy-text)
  986.     (HELP #copy-help)
  987.     (SOURCE "sfx-doc/")
  988.     (FILES)
  989.     (PATTERN #orderform)
  990.     (DEST #sfx-dest)
  991. )
  992. (COMPLETE 58)
  993. (SET #sfxsub-dest (TACKON #sfx-dest "Guides"))
  994. (IF (= (EXISTS #sfxsub-dest) 0)
  995.     (MAKEDIR #sfxsub-dest)
  996. )
  997. (COPYFILES
  998.     (PROMPT #copy-guides)
  999.     (HELP #copy-help)
  1000.     (SOURCE "sfx-doc/Guides/")
  1001.     (FILES)
  1002.     (PATTERN "#?.guide")
  1003.     (DEST #sfxsub-dest)
  1004. )
  1005.  
  1006. (COMPLETE 62)
  1007. (SET #sfxsub-dest (TACKON #sfx-dest "Guides/Workshop"))
  1008. (IF (= (EXISTS #sfxsub-dest) 0)
  1009.     (MAKEDIR #sfxsub-dest)
  1010. )
  1011. (COPYFILES
  1012.     (PROMPT #copy-guides)
  1013.     (HELP #copy-help)
  1014.     (SOURCE "sfx-doc/Guides/Workshop/")
  1015.     (FILES)
  1016.     (PATTERN "#?.rexx")
  1017.     (DEST #sfxsub-dest)
  1018. )
  1019.  
  1020. (COMPLETE 66)
  1021. (SET #sfxsub-dest (TACKON #sfx-dest "_loaders"))
  1022. (IF (= (EXISTS #sfxsub-dest) 0)
  1023.     (MAKEDIR #sfxsub-dest)
  1024. )
  1025. (COPYFILES
  1026.     (PROMPT #copy-guides)
  1027.     (HELP #copy-help)
  1028.     (SOURCE "sfx-doc/_loaders/")
  1029.     (DEST #sfxsub-dest)
  1030.     (ALL)
  1031. )
  1032.  
  1033. (COMPLETE 72)
  1034. (SET #sfxsub-dest (TACKON #sfx-dest "_operators"))
  1035. (IF (= (EXISTS #sfxsub-dest) 0)
  1036.     (MAKEDIR #sfxsub-dest)
  1037. )
  1038. (COPYFILES
  1039.     (PROMPT #copy-guides)
  1040.     (HELP #copy-help)
  1041.     (SOURCE "sfx-doc/_operators/")
  1042.     (DEST #sfxsub-dest)
  1043.     (ALL)
  1044. )
  1045.  
  1046. (COMPLETE 82)
  1047. (SET #sfxsub-dest (TACKON #sfx-dest "_players"))
  1048. (IF (= (EXISTS #sfxsub-dest) 0)
  1049.     (MAKEDIR #sfxsub-dest)
  1050. )
  1051. (COPYFILES
  1052.     (PROMPT #copy-guides)
  1053.     (HELP #copy-help)
  1054.     (SOURCE "sfx-doc/_players/")
  1055.     (DEST #sfxsub-dest)
  1056.     (ALL)
  1057. )
  1058.  
  1059. (COMPLETE 85)
  1060. (SET #sfxsub-dest (TACKON #sfx-dest "_rexx"))
  1061. (IF (= (EXISTS #sfxsub-dest) 0)
  1062.     (MAKEDIR #sfxsub-dest)
  1063. )
  1064. (COPYFILES
  1065.     (PROMPT #copy-guides)
  1066.     (HELP #copy-help)
  1067.     (SOURCE "sfx-doc/_rexx/")
  1068.     (DEST #sfxsub-dest)
  1069.     (ALL)
  1070. )
  1071.  
  1072. (COMPLETE 90)
  1073. (SET #sfxsub-dest (TACKON #sfx-dest "_savers"))
  1074. (IF (= (EXISTS #sfxsub-dest) 0)
  1075.     (MAKEDIR #sfxsub-dest)
  1076. )
  1077. (COPYFILES
  1078.     (PROMPT #copy-guides)
  1079.     (HELP #copy-help)
  1080.     (SOURCE "sfx-doc/_savers/")
  1081.     (DEST #sfxsub-dest)
  1082.     (ALL)
  1083. )
  1084.  
  1085. (COMPLETE 95)
  1086. (SET #sfxsub-dest (TACKON #sfx-dest "Catalogs"))
  1087. (IF (= (EXISTS #sfxsub-dest) 0)
  1088.     (MAKEDIR #sfxsub-dest)
  1089. )
  1090. (SET #sfxsub-dest (TACKON #sfxsub-dest #catalog))
  1091. (IF (= (EXISTS #sfxsub-dest) 0)
  1092.     (MAKEDIR #sfxsub-dest)
  1093. )
  1094. (IF (= (EXISTS (CAT "sfx-doc/Catalogs/" #catalog "/SoundFX.catalog")) 1)
  1095.     (COPYFILES                                        ; copy only, if there is a catalog
  1096.         (PROMPT #copy-catalogs)                        ; else use the builtin-language instead
  1097.         (HELP #copy-help)
  1098.         (SOURCE (CAT "sfx-doc/Catalogs/" #catalog "/SoundFX.catalog"))
  1099.         (DEST #sfxsub-dest)
  1100.     )
  1101. )
  1102.  
  1103. ))
  1104.  
  1105. ; SFX-doc ende ----------------------------------------------------------------------------------------------
  1106.  
  1107. ; Fertig ----------------------------------------------------------------------------------------------------
  1108. (COMPLETE 100)
  1109. (EXIT #exit-messy)
  1110. ; Install-SFX Ende ------------------------------------------------------------------------------------------
  1111.